home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 December / macformat-019.iso / Shareware City / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_137_Edit List < prev    next >
Encoding:
Text File  |  1994-08-24  |  1.6 KB  |  50 lines
  1. ItemType: WIND
  2. Rect: 167,111,547,257
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. Name: Edit List
  7. Params: i1_Text¬i7_Text
  8.  
  9. ItemType: LIST
  10. Rect: 0,0,292,146
  11. Name: List
  12. WhiteColor: -13108,-1,-1
  13. Logic: Single
  14. KeyScroll: TRUE
  15. Text: 
  16.  
  17. ItemType: PUSH
  18. Rect: 299,111,371,131
  19. Name: OK
  20. DefaultItem: TRUE
  21. AutoClose: TRUE
  22. Script: put empty into saveTo¬get wsGet(wdID,"6","Text")¬if it is "TRUE" then¬  put wsGet(wdID,"7","Text") into saveTo¬  put wsGet(wdID,"1","Text") into fld saveTo¬end if¬¬¬¬
  23.  
  24. ItemType: PUSH
  25. Rect: 295,75,375,95
  26. Name: Cancel
  27. CancelItem: TRUE
  28. AutoClose: TRUE
  29.  
  30. ItemType: PUSH
  31. Rect: 295,43,375,63
  32. Name: Delete
  33. Script: put empty into theList¬put empty into theSelect¬put wsGet(wdID,"1","Text") into theList¬put wsGet(wdID,"1","SelectionText") into theSelect¬if theSelect ≠ empty then¬  repeat with x=1 to the number of lines in theList¬    if line x of theList = theSelect then¬      delete line x of theList¬      exit repeat¬    end if¬  end repeat¬  wsSet wdID,"1","Text", theList¬  wsSet wdID,"6","Text", "TRUE"¬end if¬¬
  34.  
  35. ItemType: PUSH
  36. Rect: 295,11,375,31
  37. Name: Add
  38. Script: ask "What would you like to add to the list?"¬put empty into tmp¬put empty into theList¬put it into tmp¬if tmp ≠ empty then¬  put wsGet(wdID,"1","Text") into theList¬  put tmp&return before theList¬  put stripDup(theList) into theList¬  put FullSort(theList,"t=u","d=a") into theList¬  wsSet wdID,"1","Text", theList¬  wsSet wdID,"6","Text", "TRUE"¬end if¬
  39.  
  40. ItemType: TEXT
  41. Rect: 223,136,256,152
  42. Visible: FALSE
  43. Name: edit flag
  44. Text: TRUE
  45.  
  46. ItemType: TEXT
  47. Rect: 234,97,266,113
  48. Visible: FALSE
  49. Name: save to
  50. Text: Text